perm filename FASLAP.LAP[MAC,LSP] blob
sn#346371 filedate 1978-04-06 generic text, type T, neo UTF8
'(THIS IS THE LAP FOR (FASLAP /293 DSK COMLAP))
'(COMPILED BY LISP COMPILER /703)
;COMPILED ON THURSDAY, APRIL 6, 1978, AT 2:08 PM
(AND (NOT (STATUS FEATURE SAIL)) (PUTPROP 'EREAD (GET 'UREAD 'FSUBR) 'FSUBR))
(AND (STATUS FEATURE DEC10) (STATUS FEATURE BIBOP) (ALLOC '(FIXNUM (2000 20000 1000) FLONUM (1000 10000 400) BIGNUM (1000 10000 400) SYMBOL (4000 20000 0.25) ARRAY (1000 2000 100))))
(FASLAPSETUP/| T)(DECLARE (EVAL (READ)))(PROGN (PUTPROP 'FSTARTER (SUBST (COND ((STATUS FEATURE NEWIO) (CADDR (TRUENAME INFILE))) ((STATUS UREAD) (CADR (STATUS UREAD))) ('/288)) 'N '(LAMBDA (X) ''N)) 'MACRO) (DEFPROP IMOBFL 200 SYM) (SETSYNTAX '/] 'SPLICING (FUNCTION (LAMBDA NIL NIL))) (SETSYNTAX '/[ 'SPLICING (FUNCTION (LAMBDA NIL ((LAMBDA (IF FLAG) (COND ((EQ IF 'IFE)) ((EQ IF 'IFN) (SETQ IF NIL)) ((EQ IF 'IFP) (SETQ IF (EVAL FLAG) FLAG NIL)) ((BREAK LOSING-IF T))) (OR (MEMQ FLAG (STATUS FEATURES)) (SETQ IF (NOT IF))) (AND IF (DO ((Z (TYI) (TYI)) (N 1)) ((ZEROP N)) (COND ((= Z '133) (SETQ N (1+ N))) ((= Z '135) (SETQ N (1- N))))))) (READ) (READ)) NIL))) (SETSYNTAX '/# 'MACRO '(LAMBDA NIL (COND ((= (TYIPEEK) 43) (TYI) (EVAL (READ))) (T ((LAMBDA (DATA FFVL) (AND (SETQ FFVL (GET (CAR DATA) 'MACRO)) (SETQ DATA (FUNCALL FFVL DATA))) DATA) (READ) NIL))))))
(LAP FASLAPBARF SUBR)
(ARGS FASLAPBARF (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(CAIE 1 'BARF)
(JRST 0 G0002)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL FBF-AUX))
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL FBARP))
(SETZB 5 4)
(MOVE 3 -1 P)
(MOVEI 2 'FBF-AUX)
(MOVEI 1 'NIL)
(CALL 5 'MSOUT)
(JRST 0 G0001)
G0002
(SKIPE 3 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0006)
(CAIE 1 'DATA)
(JRST 0 G0007)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL FBARP))
(JRST 0 G0006)
G0007
(JUMPE 1 G0005)
G0006
(MOVEI 5 'T)
(MOVE 4 (SPECIAL UFFIL))
(JSP T SPECBIND)
(0 5 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(0 4 (SPECIAL OUTFILES))
(0 5 (SPECIAL TERPRI))
(SKIPN 0 (SPECIAL NIOP/|))
(JRST 0 G0009)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL ↑W))
(MOVE 2 (SPECIAL OUTFILES))
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 2 'MEMQ)
(JUMPN 1 G0010)
(MOVE 2 (SPECIAL OUTFILES))
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL OUTFILES))
G0010
(JRST 0 G0008)
G0009
(SKIPN 0 (SPECIAL MESSIOC))
(JRST 0 G0008)
(MOVE 1 (SPECIAL MESSIOC))
(CAME 1 (SPECIAL CLPROGN))
(JRST 0 G0015)
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL ↑R))
(JRST 0 G0008)
G0015
(CALL 17 'IOC)
G0008
(SKIPE 1 -1 P)
(JRST 0 G0017)
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL ↑R))
G0017
(CALL 0 'TERPRI)
(SKIPN 1 (SPECIAL UNFASLCRFL))
(JRST 0 G0018)
(CALL 0 'TERPRI)
G0018
(STRT 0 (% SIXBIT |(COMMENT **FASL** !|))
(MOVEI 2 'SUBR)
(MOVE 1 0 P)
(CALL 2 'GET)
(PUSHJ P 0 1)
(STRT 0 (% SIXBIT |)!|))
(SETZM 0 (SPECIAL UNFASLCRFL))
(SKIPN 1 (SPECIAL ↑R))
(JRST 0 G0021)
(MOVEM 1 (SPECIAL UNFASLSIGNIF))
(JRST 0 G0020)
G0021
(MOVEI 1 'NIL)
G0020
(PUSHJ P UNBIND)
G0005
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FBF-AUX SUBR)
(ARGS FBF-AUX (NIL . 0))
(STRT 0 (% SIXBIT |**FASLAP-BUG** !|))
(MOVEI 2 'SUBR)
(MOVE 1 (SPECIAL FBF-AUX))
(CALL 2 'GET)
(PUSHJ P 0 1)
(MOVEI 1 'T)
(POPJ P)
NIL
(SETQ FASLVERNO '/293)
(LAP FASLVERNO SUBR)
(ARGS FASLVERNO (NIL . 0))
(STRT 0 (% SIXBIT |FASLAP ASSEMBLER 293 !|))
(MOVEI 1 'NIL)
(POPJ P)
NIL
(LAP FASLINIT SUBR)
(ARGS FASLINIT (NIL . 0))
(MOVEI 1 'NIL)
(CALL 1 'GETMIDASOP)
(MOVE 5 (SPECIAL OBARRAY))
(PUSH P (% 0 0 '(SYM ATOMINDEX ARGSINFO ENTRY)))
(PUSH P (% 0 0 '(FOO A B C AR1 AR2A T TT D R F FOO P FLP FXP SP)))
(JSP T SPECBIND)
(0 5 (SPECIAL OBARRAY))
(PUSH FXP (% 0))
(MOVE 1 (SPECIAL OBARRAY))
(CALL 1 'ARRAYDIMS)
(HRRZ 7 0 1)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(SUBI 7 201)
(PUSH FXP 7)
(MOVEM 7 -1 FXP)
G0004
(MOVE 7 0 FXP)
(JUMPL 7 G0032)
(MOVE 1 (SPECIAL OBARRAY))
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ 1 1)
(JRST 0 (* 2))
(HRRZ 1 @ 1 1)
(PUSH P 1)
G0007
(SKIPN 1 0 P)
(JRST 0 G0037)
(HLRZ 1 0 1)
(MOVE 2 -2 P)
(CALL 2 'LREMPROP)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0007)
G0037
(SUB P (% 0 0 1 1))
(SOS 0 0 FXP)
(JRST 0 G0004)
G0032
(SUB FXP (% 0 0 2 2))
(MOVEI 1 'NIL)
(CALL 1 'FASLAPSETUP/|)
(MOVEM 1 (SPECIAL LDFNM))
(PUSH P (% 0 0 'NIL))
(HLRZ 2 'COBARRAY)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(CAIN 2 MAKUNBOUND)
(JRST 0 G0042)
(SKIPN 1 (SPECIAL COBARRAY))
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'ARRAY)
(JRST 0 G0042)
(MOVE 1 (SPECIAL COBARRAY))
(CALL 1 'ARRAYDIMS)
(MOVEM 1 0 P)
(JUMPE 1 G0042)
(HLRZ 2 0 1)
(CAIE 2 'OBARRAY)
(JRST 0 G0042)
(HLRZ 3 'SOBARRAY)
(HRRZ 3 0 3)
(HRRZ 3 0 3)
(CAIN 3 MAKUNBOUND)
(JRST 0 G0049)
(MOVE 1 (SPECIAL SOBARRAY))
(CAMN 1 (SPECIAL COBARRAY))
(JRST 0 G0042)
G0049
(MOVEI 5 '(% @ BLOCK ASCII SIXBIT SQUOZE CALL NCALL JCALL NJCALL ENTRY DEFSYM BLOCK SYMBOLS BEGIN DDTSYM THIS IS THE UNFASL FOR LISP FILE COMPILED BY COMPILER))
(MOVEM 5 0 P)
(PUSH FXP (% 0))
(MOVE 1 (SPECIAL OBARRAY))
(CALL 1 'ARRAYDIMS)
(HRRZ 7 0 1)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(SUBI 7 201)
(PUSH FXP 7)
(MOVEM 7 -1 FXP)
G0011
(MOVE 7 0 FXP)
(JUMPL 7 G0057)
(MOVE 1 (SPECIAL OBARRAY))
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ 1 1)
(JRST 0 (* 2))
(HRRZ 1 @ 1 1)
(PUSH P 1)
G0014
(SKIPN 1 0 P)
(JRST 0 G0062)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 2 'SYM)
(CALL 2 'GET)
(JUMPE 1 G0064)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 'CONS)
(MOVEM 1 -2 P)
G0064
(SUB P (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0014)
G0062
(SUB P (% 0 0 1 1))
(SOS 0 0 FXP)
(JRST 0 G0011)
G0057
(SUB FXP (% 0 0 2 2))
(MOVE 5 (SPECIAL COBARRAY))
(MOVEM 5 (SPECIAL OBARRAY))
(PUSH P 0 P)
(PUSH P 0 P)
G0019
(SKIPN 1 0 P)
(JRST 0 G0069)
(HLRZ 1 0 1)
(CALL 1 'INTERN)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0019)
G0069
(SUB P (% 0 0 2 2))
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 '*APPEND)
(PUSH P 1)
G0022
(SKIPN 1 0 P)
(JRST 0 G0074)
(HLRZ 1 0 1)
(CALL 1 'INTERN)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0022)
G0074
(SUB P (% 0 0 1 1))
(JRST 0 G0041)
G0042
(MOVE 5 (SPECIAL OBARRAY))
(MOVEM 5 (SPECIAL COBARRAY))
(MOVE 4 (SPECIAL READTABLE))
(MOVEM 4 (SPECIAL CREADTABLE))
G0041
(MOVEI 5 'DSK)
(MOVEM 5 (SPECIAL MSDEV))
(SETZM 0 (SPECIAL SQUIDP))
(PUSH FXP (% 0))
G0024
(SKIPN 1 -1 P)
(JRST 0 G0079)
(HLRZ 2 0 1)
(CAIN 2 'FOO)
(JRST 0 G0080)
(MOVEI 3 'SYM)
(MOVE 7 0 FXP)
(JSP T FXCONS)
(EXCH 2 1)
(CALL 3 'PUTPROP)
G0080
(MOVE 7 0 FXP)
(ADDI 7 1)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(MOVEM 7 0 FXP)
(JRST 0 G0024)
G0079
(SUB FXP (% 0 0 1 1))
(MOVEI T G0086)
(PUSH P T)
(PUSH P (% 0 0 'LCA))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '20))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0086
(MOVEI T G0087)
(PUSH P T)
(PUSH P (% 0 0 'NUMBERTABLE))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '177))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0087
(MOVEI T G0088)
(PUSH P T)
(PUSH P (% 0 0 'BTAR))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0088
(MOVEI T G0089)
(PUSH P T)
(PUSH P (% 0 0 'BXAR))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0089
(MOVEI T G0090)
(PUSH P T)
(PUSH P (% 0 0 'BSAR))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0090
(PUSH FXP (% 0))
G0027
(MOVE 7 0 FXP)
(CAIN 7 20)
(JRST 0 G0092)
(MOVEI 2 '((NIL -1)))
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY LCA))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY LCA))
(AOS 0 0 FXP)
(JRST 0 G0027)
G0092
(SUB FXP (% 0 0 1 1))
(MOVEI 1 '(FEATURE NEWIO))
(CALL 17 'STATUS)
(MOVEM 1 (SPECIAL NIOP/|))
(JUMPE 1 G0097)
(MOVEI 1 'NIL)
(JRST 0 G0096)
G0097
(MOVEI T G0099)
(PUSH P T)
(PUSH P (% 0 0 'NIL))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '201))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0099
G0096
(MOVEM 1 (SPECIAL IMOSAR))
(SETZM 0 (SPECIAL IMOUSR))
(MOVEI 1 '(FEATURE FASLAP))
(CALL 17 'SSTATUS)
(MOVEI 1 'NIL)
(CALL 17 'GCTWA)
(SUB P (% 0 0 3 3))
(JRST 0 UNBIND)
NIL
(LAP /|FL1 SUBR)
(STRT 0 (% SIXBIT |ABORTED IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | AFTER !|))
(MOVE 1 (SPECIAL LOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS - TOTAL WORDS = !|))
(MOVE 1 (SPECIAL FILOC))
(JCALL 1 'PRIN1)
NIL
(LAP FASL-A-FILE SUBR)
(ARGS FASL-A-FILE (NIL . 2))
(PUSH P 1)
(MOVEI 1 'NIL)
(PUSH P 2)
(CALL 1 'NCONS)
(MOVE 5 (SPECIAL MSDIR))
(MOVE 4 (SPECIAL CREADTABLE))
(MOVE 3 (SPECIAL COBARRAY))
(MOVE 2 (SPECIAL BASE))
(PUSH P (% 0 0 '10))
(JSP T SPECBIND)
(-1←41 0 (SPECIAL BASE))
(0 2 (SPECIAL IBASE))
(0 3 (SPECIAL OBARRAY))
(0 4 (SPECIAL READTABLE))
(0 5 (SPECIAL MSDIR))
(PUSH P (% 0 0 'NIL))
(PUSH P (% 0 0 'NIL))
(PUSH P 1)
(MOVEI 1 'T)
(MOVEI 2 G0009)
(JSP TT ERSETUP)
(MOVEI 1 '(T))
(CALL 17 'GCTWA)
(MOVEI 2 'NIL)
(MOVE 1 -22 P)
(CALL 2 'FASL-START)
(MOVE 1 -21 P)
(JSP T PDLNMK)
(PUSH P 1)
G0002
(SKIPN 1 0 P)
(JRST 0 G0012)
(HLRZ 1 0 1)
(CALL 17 'EREAD)
(MOVEI 1 '(UREAD))
(CALL 17 'STATUS)
(MOVE 2 -17 P)
(CALL 2 'CONS)
(MOVEM 1 -17 P)
(HLRZ 1 0 1)
(CALL 1 'UNFASL-MSG)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL ↑Q))
(MOVEI T G0017)
(PUSH P T)
(PUSH P -17 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0017
(PUSH P 1)
G0004
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0020)
(MOVE 1 0 P)
(CAMN 1 -17 P)
(JRST 0 G0020)
(MOVEI 2 'NIL)
(CALL 2 'FASLIFY)
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0022)
(MOVEI T G0023)
(PUSH P T)
(PUSH P -20 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0023
(JRST 0 G0021)
G0022
(MOVEI 1 'NIL)
G0021
(MOVEM 1 0 P)
(JRST 0 G0004)
G0020
(SUB P (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0002)
G0012
(SUB P (% 0 0 1 1))
(MOVEI 1 'T)
(MOVEM 1 -17 P)
(CALL 1 'NCONS)
(JRST 0 ERUNDO)
G0009
(MOVEI 1 '(NIL))
(CALL 17 'GCTWA)
(SKIPN 1 -2 P)
(JRST 0 G0029)
(SKIPN 2 (SPECIAL FBARP))
(JRST 0 G0027)
G0029
(MOVEI 2 '/|FL1)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0030)
G0007
(MOVEI T G0033)
(PUSH P T)
(PUSH P -1 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0033
(CAMN 1 0 P)
(JRST 0 G0032)
(JRST 0 G0007)
G0032
G0030
(SETZM 0 -1 P)
G0027
(MOVE 3 -5 P)
(MOVE 2 -1 P)
(MOVEI 1 0 3)
(CALL 3 'FASL-CLOSEOUT)
(SKIPN 1 (SPECIAL TTYNOTES))
(JRST 0 G0035)
(JSP T SPECBIND)
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(CALL 0 'TERPRI)
(HRRZ 1 @ -4 P)
(JUMPN 1 G0037)
(HLRZ 1 @ -4 P)
(JRST 0 G0036)
G0037
(MOVE 1 -4 P)
G0036
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | ASSEMBLED - !|))
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS!|))
(PUSHJ P UNBIND)
G0035
(MOVEI 1 'NIL)
(CALL 17 'GCTWA)
(MOVE 1 -2 P)
(SUB P (% 0 0 6 6))
(JRST 0 UNBIND)
NIL
(LAP /|FL2 SUBR)
(STRT 0 (% SIXBIT |EOF IN MIDDLE OF LAP CODE FOR !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL3 SUBR)
(STRT 0 (% SIXBIT |LOSING FASLIFY!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP FASLIFY SUBR)
(ARGS FASLIFY (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(PUSH P (% 0 0 'NIL))
(CAIN 2 'LIST)
(JRST 0 G0010)
(CAIN 2 'LAP)
(JRST 0 G0012)
(JUMPN 2 G0011)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0011)
(HLRZ 1 @ -2 P)
(CAIE 1 'LAP)
(JRST 0 G0011)
G0012
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVEI 1 'NIL)
(CALL 1 'NCONS)
(PUSH P 1)
G0002
(SKIPE 1 -1 P)
(JRST 0 G0016)
(MOVE 2 -2 P)
(MOVEI 1 'NIL)
(CALL 2 'CONS)
(CALL 1 'NREVERSE)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(JRST 0 G0021)
G0016
(SKIPE 2 (SPECIAL ↑Q))
(JRST 0 G0022)
(MOVEI 2 '/|FL2)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
G0022
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 'CONS)
(MOVEM 1 -2 P)
(SKIPN 2 (SPECIAL ↑Q))
(JRST 0 G0025)
(MOVEI T G0026)
(PUSH P T)
(PUSH P -1 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0026
(JRST 0 G0024)
G0025
(MOVEI 1 'NIL)
G0024
(MOVEM 1 -1 P)
(JRST 0 G0002)
G0021
(SUB P (% 0 0 2 2))
(JRST 0 G0010)
G0011
(SKIPN 1 -1 P)
(JRST 0 G0029)
(MOVEI 2 '/|FL3)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(JRST 0 G0010)
G0029
(MOVE 1 -2 P)
(JSP T PDLNMK)
(SETZM 0 -2 P)
(MOVEM 1 0 P)
(JRST 0 G0005)
G0010
G0004
(SKIPN 1 -2 P)
(JRST 0 G0032)
(HLRZ 2 0 1)
(MOVEM 2 0 P)
G0005
(MOVE 7 0 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0034)
(HLRZ 1 @ 0 P)
(CAIE 1 'LAP)
(JRST 0 G0035)
(HRRZ 2 @ 0 P)
(HLRZ 2 0 2)
(MOVEM 2 (SPECIAL CURRENTFN))
(MOVE 1 -2 P)
(CALL 1 'FASLPASS1)
(MOVE 1 -2 P)
(CALL 1 'FASLPASS2)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(MOVEM 1 -2 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL FILOC))
(MOVE 1 (SPECIAL COMPILER-STATE))
(CAIN 1 'COMPILE)
(JRST 0 G0041)
(SKIPN 2 (SPECIAL TTYNOTES))
(JRST 0 G0042)
(JSP T SPECBIND)
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(CALL 0 'TERPRI)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | ASSEMBLED !|))
(PUSHJ P UNBIND)
G0042
G0041
(JRST 0 G0034)
G0035
(MOVE 1 0 P)
(CALL 1 'MUNGEABLE)
(JUMPE 1 G0044)
(MOVE 1 0 P)
(CALL 1 'COLLECTATOMS)
(MOVE 3 0 P)
(MOVEI 2 '-1←22)
(MOVEI 1 '16)
(CALL 3 'BUFFERBIN)
(JRST 0 G0034)
G0044
(HLRZ 2 @ 0 P)
(CAIE 2 'DECLARE)
(JRST 0 G0048)
(MOVEI 2 G0050)
(JSP TT ERSETUP)
(HRRZ 1 @ -15 P)
(PUSH P 1)
(PUSH P 1)
G0009
(SKIPN 1 0 P)
(JRST 0 G0053)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0009)
G0053
(SUB P (% 0 0 1 1))
(POP P 1)
(CALL 1 'NCONS)
(JRST 0 ERUNDO)
G0050
(SETZM 0 0 P)
(JRST 0 G0047)
G0048
(CAIE 2 'COMMENT)
(JRST 0 G0058)
(JRST 0 G0047)
G0058
(CAIN 2 'QUOTE)
(JRST 0 G0057)
(JRST 0 G0047)
G0057
(MOVEI 2 '(THIS IS THE LAP FOR))
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'SUBMATCH)
(JUMPE 1 G0062)
(SKIPN 2 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0066)
(MOVEI 3 ''(THIS IS THE UNFASL FOR LISP FILE DATA))
(MOVEI 2 'DATA)
(HRRZ 1 @ 0 P)
(JSP T (CARCDR 11) 0 CDDDAR)
(JSP T (CARCDR 2) 0 CADDR)
(CALL 3 'SUBST)
(JRST 0 G0065)
G0066
(MOVEI 1 'NIL)
G0065
(MOVEM 1 0 P)
(JRST 0 G0047)
G0062
(MOVEI 2 '(COMPILED BY LISP COMPILER))
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'SUBMATCH)
(JUMPE 1 G0047)
(SETZM 0 0 P)
G0047
(SKIPN 1 0 P)
(JRST 0 G0034)
(SKIPE 2 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0074)
(HLRZ 3 0 1)
(CAIN 3 'COMMENT)
(JRST 0 G0034)
(CAIN 3 'QUOTE)
(JRST 0 G0034)
G0074
(MOVE 5 (SPECIAL UFFIL))
(MOVEI 4 'T)
(JSP T SPECBIND)
(0 4 (SPECIAL ↑R))
(0 4 (SPECIAL ↑W))
(0 5 (SPECIAL OUTFILES))
(CALL 0 'TERPRI)
(MOVE 7 0 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0077)
(HLRZ 1 @ 0 P)
(CAIE 1 'QUOTE)
(JRST 0 G0077)
(STRT 0 (% SIXBIT /'!))
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(MOVEM 3 0 P)
G0077
(MOVE 1 0 P)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(PUSHJ P UNBIND)
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL UNFASLSIGNIF))
(MOVEM 1 (SPECIAL UNFASLCRFL))
G0034
(HRRZ 1 @ -2 P)
(MOVEM 1 -2 P)
(JRST 0 G0004)
G0032
(MOVEI 1 'NIL)
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP FASL-START SUBR)
(ARGS FASL-START (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(SKIPE 3 (SPECIAL MSDIR))
(JRST 0 G0001)
(JSP T (CARCDR 0) 0 CADDDR)
(MOVEM 1 (SPECIAL MSDIR))
(JUMPN 1 G0001)
(MOVEI 1 'NIL)
(CALL 17 'CRUNIT)
(HRRZ 2 0 1)
(HLRZ 2 0 2)
(MOVEM 2 (SPECIAL MSDIR))
G0001
(SKIPN 1 (SPECIAL NIOP/|))
(JRST 0 G0006)
(SKIPE 2 0 P)
(JRST 0 G0007)
(MOVEI T G0009)
(PUSH P T)
(MOVE 1 (SPECIAL MSDIR))
(CALL 1 'NCONS)
(MOVE 2 (SPECIAL MSDEV))
(CALL 2 'XCONS)
(MOVEI 2 'UNFASL)
(CALL 2 'XCONS)
(HLRZ 2 @ -2 P)
(CALL 2 'XCONS)
(PUSH P 1)
(PUSH P (% 0 0 '(OUT)))
(MOVNI T 2)
(JCALL 16 'OPEN)
G0009
(CALL 1 'NCONS)
(MOVEM 1 (SPECIAL UFFIL))
(MOVE 2 (SPECIAL CMSGFILES))
(HLRZ 1 0 1)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL CMSGFILES))
(JUMPE 1 G0007)
(MOVEI T G0019)
(PUSH P T)
(HLRZ 1 @ (SPECIAL UFFIL))
(PUSH P 1)
(PUSH P (% 0 0 '120))
(MOVNI T 2)
(NJCALL 16 'LINEL)
G0019
G0007
(MOVEI T G0021)
(PUSH P T)
(HRRZ 2 @ -2 P)
(HRRZ 2 0 2)
(MOVEI 1 'OUTPUT)
(CALL 2 'CONS)
(MOVEI 2 '|.FASL.|)
(CALL 2 'XCONS)
(PUSH P 1)
(PUSH P (% 0 0 '(OUT FIXNUM DSK)))
(MOVNI T 2)
(JCALL 16 'OPEN)
G0021
(MOVEM 1 (SPECIAL IMOSAR))
(JRST 0 G0005)
G0006
(SKIPE 2 0 P)
(JRST 0 G0027)
(MOVE 1 (SPECIAL MSDIR))
(CALL 1 'NCONS)
(MOVE 2 (SPECIAL MSDEV))
(CALL 2 'XCONS)
(CALL 17 'UWRITE)
(CALL 1 'NCONS)
(MOVEM 1 (SPECIAL UFFIL))
G0027
(MOVEI 2 'T)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 2 'OPENIMAGEOUT)
G0005
(MOVEI 1 '124641635413)
(NCALL 1 'FASLOUT)
(MOVE 1 (SPECIAL LDFNM))
(NCALL 1 'FASLOUT)
(SETZM 0 (SPECIAL ALLATOMS))
(SETZM 0 (SPECIAL ENTRYNAMES))
(SETZM 0 (SPECIAL SYMPDL))
(SETZM 0 (SPECIAL MAINSYMPDL))
(SETZM 0 (SPECIAL CURRENTFNSYMS))
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL BINCT))
(MOVEI 2 '(NIL))
(MOVEI 1 'NUMBERTABLE)
(CALL 2 'FILLARRAY)
(MOVEI 1 '0)
(MOVEM 1 (SPECIAL ATOMINDEX))
(MOVEM 1 (SPECIAL LOC))
(MOVEM 1 (SPECIAL LITLOC))
(MOVEM 1 (SPECIAL FILOC))
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑R))
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL UNFASLCRFL))
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP UNFASL-MSG SUBR)
(ARGS UNFASL-MSG (NIL . 1))
(MOVEI 5 'T)
(MOVE 4 (SPECIAL UFFIL))
(JSP T SPECBIND)
(0 4 (SPECIAL OUTFILES))
(0 5 (SPECIAL TERPRI))
(STRT 0 (% SIXBIT |↑M'(THIS IS THE UNFASL FOR !|))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |)↑M'(ASSEMBLED BY FASLAP 293)↑M!|))
(PUSHJ P UNBIND)
(SETZB 1 (SPECIAL UNFASLCRFL))
(POPJ P)
NIL
(LAP /|FL4 SUBR)
(STRT 0 (% SIXBIT |TOTAL = !|))
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL5 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |UNFASL CRUNIT LOST?!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP FASL-CLOSEOUT SUBR)
(ARGS FASL-CLOSEOUT (NIL . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 3 G0007)
(MOVEI 2 '(UNFASL))
(HLRZ 1 0 3)
(CALL 2 'CONS)
(MOVEM 1 0 P)
G0007
(MOVEI 3 'NIL)
(MOVEI 2 '0)
(MOVEI 1 '17)
(CALL 3 'BUFFERBIN)
(SKIPE 1 -1 P)
(JRST 0 G0010)
(HRRZ 2 @ -2 P)
(HRRZ 2 0 2)
(MOVEI 1 'OUTPUT)
(CALL 2 'CONS)
(MOVEI 2 '|.FASL.|)
(CALL 2 'XCONS)
(MOVEM 1 -2 P)
G0010
(SKIPN 1 (SPECIAL NIOP/|))
(JRST 0 G0015)
(MOVE 2 -2 P)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 2 'RENAMEF)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 1 'CLOSE)
(SETZM 0 (SPECIAL IMOSAR))
(JRST 0 G0014)
G0015
(MOVEI 2 'NIL)
(MOVE 1 -2 P)
(CALL 2 'OPENIMAGEOUT)
G0014
(SKIPN 1 -1 P)
(JRST 0 G0018)
(MOVEI 2 '/|FL4)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(SKIPE 1 0 P)
(JRST 0 G0020)
(JRST 0 G0019)
G0020
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0021)
(EXCH 2 1)
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 2 'RENAMEF)
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 1 'CLOSE)
(SKIPE 1 (SPECIAL UNFASLSIGNIF))
(JRST 0 G0019)
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 1 'DELETEF)
(JRST 0 G0019)
G0021
(MOVEI 1 '(UWRITE))
(CALL 17 'STATUS)
(MOVEM 1 -2 P)
(MOVE 1 0 P)
(CALL 17 'UFILE)
(HLRZ 2 @ (SPECIAL UFFIL))
(MOVE 1 -2 P)
(CALL 2 'EQUAL)
(JUMPN 1 G0028)
(PUSH P (% 0 0 'NIL))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(MOVEI 2 0 1)
(HLRZ 1 @ (SPECIAL UFFIL))
(PUSH P 1)
(PUSH P 2)
G0006
(SKIPN 1 0 P)
(JRST 0 G0035)
(SKIPN 2 -1 P)
(JRST 0 G0035)
(HLRZ 2 0 2)
(HLRZ 1 0 1)
(CALL 2 'SAMEPNAMEP)
(CALL 1 'NCONS)
(HRRM 1 @ -2 P)
(HRRZ 2 @ -1 P)
(HRRZ 3 @ 0 P)
(MOVEM 1 -2 P)
(MOVEM 2 -1 P)
(MOVEM 3 0 P)
(JRST 0 G0006)
G0035
(SUB P (% 0 0 3 3))
(POP P 1)
(CALL 17 'AND)
(JUMPN 1 G0028)
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 1 'NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DATA))
(JUMPE 1 G0028)
(MOVEI 2 '/|FL5)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0028
(SKIPE 1 (SPECIAL UNFASLSIGNIF))
(JRST 0 G0019)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 '*APPEND)
(CALL 17 'UKILL)
G0019
(SETZM 0 (SPECIAL UFFIL))
(JRST 0 G0017)
G0018
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0052)
(MOVE 1 -2 P)
(CALL 1 'DELETEF)
(SKIPN 1 (SPECIAL UFFIL))
(JRST 0 G0051)
(SKIPN 2 0 P)
(JRST 0 G0051)
(HLRZ 1 0 1)
(CALL 2 'RENAMEF)
(HLRZ 1 @ (SPECIAL UFFIL))
(CALL 1 'CLOSE)
(SETZM 0 (SPECIAL UFFIL))
(JRST 0 G0051)
G0052
(MOVE 1 -2 P)
(CALL 17 'UKILL)
(SKIPN 1 (SPECIAL UFFIL))
(JRST 0 G0051)
(SKIPN 2 0 P)
(JRST 0 G0051)
(MOVEI 1 0 2)
(CALL 17 'UFILE)
(SETZM 0 (SPECIAL UFFIL))
G0051
(MOVE 1 (SPECIAL MAINSYMPDL))
(CALL 1 'MOBYSYMPOP)
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
G0017
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVEI 1 'ENTRY)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVEI 1 'ARGSINFO)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL ALLATOMS))
(MOVEI 1 'ATOMINDEX)
(CALL 2 'REMPROPL)
(MOVEI 2 '(NIL))
(MOVEI 1 'BSAR)
(CALL 2 'FILLARRAY)
(MOVEI 2 '(NIL))
(MOVEI 1 'NUMBERTABLE)
(CALL 2 'FILLARRAY)
(SETZM 0 (SPECIAL ALLATOMS))
(SETZM 0 (SPECIAL ENTRYNAMES))
(SETZM 0 (SPECIAL SYMPDL))
(SETZM 0 (SPECIAL MAINSYMPDL))
(SETZB 1 (SPECIAL CURRENTFNSYMS))
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP /|FL6 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |NOT LAP LISTING!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL7 SUBR)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | DUPLICATED FUNCTION !|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL10 SUBR)
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(MOVE 1 (SPECIAL DATA))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL11 SUBR)
(STRT 0 (% SIXBIT |NO NIL?!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL12 SUBR)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | DUPLICATED FUNCTION IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL13 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(MOVE 1 (SPECIAL EXPR))
(JCALL 1 'PRIN1)
NIL
(LAP FASLPASS1 SUBR)
(ARGS FASLPASS1 (NIL . 1))
(MOVEI 5 '10)
(JSP T SPECBIND)
(0 5 (SPECIAL BASE))
(0 5 (SPECIAL IBASE))
(0 0 (SPECIAL AMBIGSYMS))
(0 0 (SPECIAL EXPR))
(PUSH P 1)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(HLRZ 2 0 1)
(HLRZ 2 0 2)
(CAIN 2 'LAP)
(JRST 0 G0015)
(MOVEI 2 '/|FL6)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0015
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL LOC))
(HLRZ 1 @ 0 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL CURRENTFN))
(SETZM 0 (SPECIAL CURRENTFNSYMS))
(MOVEI 2 'ENTRY)
(CALL 2 'GET)
(JUMPE 1 G0019)
(MOVEI 2 '/|FL7)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
(JRST 0 ERUNDO)
G0019
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ENTRYNAMES))
(MOVEI 3 'ENTRY)
(MOVE 2 (SPECIAL FILOC))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 3 'PUTPROP)
(HLRZ 1 @ 0 P)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL10)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(PUSH FXP (% 0))
(HRRZ 1 @ 0 P)
(PUSH P 1)
G0003
(SKIPE 1 0 P)
(JRST 0 G0028)
(MOVEI 2 '/|FL11)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(JRST 0 G0026)
G0028
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL EXPR))
(JUMPE 1 G0026)
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0031)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(MOVEI 2 0 1)
(MOVE 1 (SPECIAL EXPR))
(CALL 2 'FASLDEFSYM)
(JRST 0 G0030)
G0031
(HLRZ 1 @ (SPECIAL EXPR))
(CAIE 1 'ENTRY)
(JRST 0 G0036)
(MOVEI 2 'ENTRY)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'GET)
(JUMPE 1 G0038)
(MOVEI 2 '/|FL12)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
(JRST 0 ERUNDO)
G0038
(MOVE 2 (SPECIAL ENTRYNAMES))
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ENTRYNAMES))
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 3 'ENTRY)
(MOVEI 2 0 1)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(MOVEI 2 '/|FL13)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(JRST 0 G0030)
G0036
(CAIE 1 'DEFSYM)
(JRST 0 G0047)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0008
(SKIPN 1 0 P)
(JRST 0 G0051)
(HRRZ 2 0 1)
(JUMPE 2 G0051)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 0 2)
(CALL 1 '*EVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLDEFSYM)
(HRRZ 1 @ 0 P)
(HRRZ 1 0 1)
(MOVEM 1 0 P)
(JRST 0 G0008)
G0051
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0047
(CAIE 1 'DDTSYM)
(JRST 0 G0058)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL DDTSYMP))
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0011
(SKIPN 1 0 P)
(JRST 0 G0062)
(HLRZ 1 0 1)
(CALL 1 '*DDTSYM)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0011)
G0062
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0058
(CAIE 1 'EVAL)
(JRST 0 G0065)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0014
(SKIPN 1 0 P)
(JRST 0 G0069)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0014)
G0069
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0065
(CAIE 1 'SYMBOLS)
(JRST 0 G0072)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL SYMBOLSP))
(JRST 0 G0030)
G0072
(CAIN 1 'SIXBIT)
(JRST 0 G0075)
(CAIN 1 'ASCII)
(JRST 0 G0075)
(CAIE 1 'BLOCK)
(JRST 0 G0074)
G0075
(PUSH P (SPECIAL LOC))
(MOVE 1 (SPECIAL EXPR))
(NCALL 1 'BLOBLENGTH)
(MOVEM 7 0 FXP)
(ADD 7 @ 0 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0074
(CAIN 1 'COMMENT)
(JRST 0 G0030)
(CAIN 1 'ARGS)
(JRST 0 G0030)
(MOVEI 2 'T)
(MOVE 1 (SPECIAL EXPR))
(NCALL 2 'RECLITCOUNT)
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
G0030
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0003)
G0026
(SUB P (% 0 0 1 1))
(MOVE 5 (SPECIAL LOC))
(MOVEM 5 (SPECIAL LITLOC))
(MOVE 1 (SPECIAL LITERALS))
(CALL 1 'NREVERSE)
(MOVEM 1 (SPECIAL LITERALS))
(MOVEI 1 'NIL)
(PUSHJ P UNBIND)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP RECLITCOUNT SUBR)
(ARGS RECLITCOUNT (NIL . 2))
(PUSH P (% 0 0 FIX1))
(JSP T SPECBIND)
(0 1 (SPECIAL EXPR))
(PUSH P 2)
(HRRZ 3 0 1)
(JUMPE 3 G0002)
(HRRZ 4 0 3)
(JUMPE 4 G0002)
(HLRZ 5 0 4)
(CAIN 5 '@)
(JRST 0 G0008)
(HLRZ 1 0 3)
(CAIE 1 '@)
(JRST 0 G0007)
G0008
(HRRZ 1 0 4)
(HLRZ 1 0 1)
(JRST 0 G0006)
G0007
(MOVEI 1 0 5)
G0006
(MOVEM 1 (SPECIAL EXPR))
(JUMPE 1 G0002)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0002)
(HLRZ 1 @ (SPECIAL EXPR))
(CAIE 1 '%)
(JRST 0 G0002)
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 1 'LAPCONST)
(JUMPN 1 G0002)
(SKIPN 2 0 P)
(JRST 0 G0020)
(MOVE 2 (SPECIAL LITERALS))
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL LITERALS))
(MOVEI 7 0)
(JRST 0 G0001)
G0020
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(CAIN 3 'SIXBIT)
(JRST 0 G0024)
(CAIN 3 'ASCII)
(JRST 0 G0024)
(CAIE 3 'BLOCK)
(JRST 0 G0023)
G0024
(MOVE 1 (SPECIAL EXPR))
(NCALL 1 'BLOBLENGTH)
(JRST 0 G0001)
G0023
(MOVEI 2 'NIL)
(MOVE 1 (SPECIAL EXPR))
(NCALL 2 'RECLITCOUNT)
(ADDI 7 1)
(JRST 0 G0001)
G0002
(MOVEI 7 0)
G0001
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
NIL
(LAP /|FL14 SUBR)
(STRT 0 (% SIXBIT |PHASE SCREW AT ENTRY !|))
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL15 SUBR)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | MISPLACED ARGS INFO!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL16 SUBR)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | FUNCTION NOT SEEN FOR THIS INFO!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL17 SUBR)
(STRT 0 (% SIXBIT |UNDEFINED SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |↑ICONVERTED TO DDT SYMBOLS - !|))
(MOVE 1 (SPECIAL DDTSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL20 SUBR)
(STRT 0 (% SIXBIT |DDT SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - !|))
(MOVE 1 (SPECIAL DDTSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL21 SUBR)
(STRT 0 (% SIXBIT |UNDEFINED SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - !|))
(MOVE 1 (SPECIAL UNDEFSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL22 SUBR)
(STRT 0 (% SIXBIT |LITERAL PHASE SCREW IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP FASLPASS2 SUBR)
(ARGS FASLPASS2 (NIL . 1))
(MOVEI 5 '0)
(MOVEI 4 '10)
(JSP T SPECBIND)
(0 4 (SPECIAL BASE))
(0 4 (SPECIAL IBASE))
(0 5 (SPECIAL LITCNT))
(0 0 (SPECIAL DDTSYMS))
(0 0 (SPECIAL AMBIGSYMS))
(0 0 (SPECIAL LASTENTRY))
(0 0 (SPECIAL LITERALP))
(0 0 (SPECIAL UNDEFSYMS))
(0 0 (SPECIAL EXPR))
(PUSH P 1)
(PUSH P (SPECIAL LITERALS))
(PUSH P (SPECIAL LOC))
(MOVEI 3 '0)
(MOVEM 3 (SPECIAL LOC))
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL EXPR))
(HRRZ 1 0 1)
(CALL 1 'COLLECTATOMS)
(HRRZ 2 @ (SPECIAL EXPR))
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'CONS)
(MOVEI 2 'ENTRY)
(PUSH P 1)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'GET)
(POP P 2)
(CALL 2 'XCONS)
(MOVEI 2 'NIL)
(CALL 2 'CONS)
(PUSH P 1)
(MOVEI 2 'SYMBOLSP)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'GET)
(JUMPE 1 G0031)
(MOVE 3 (SPECIAL CURRENTFN))
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
G0031
(MOVE 5 (SPECIAL CURRENTFN))
(MOVEM 5 (SPECIAL LASTENTRY))
(PUSH P (% 0 0 'NIL))
(PUSH FXP (% 0))
(HRRZ 1 @ -4 P)
(PUSH P 1)
G0002
(HLRZ 1 @ 0 P)
(MOVEM 1 (SPECIAL EXPR))
(JUMPN 1 G0037)
(MOVE 5 0 P)
(MOVEM 5 -1 P)
(JRST 0 G0036)
G0037
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0041)
(SKIPN 1 (SPECIAL SYMBOLSP))
(JRST 0 G0040)
(MOVE 3 (SPECIAL EXPR))
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
(JRST 0 G0040)
G0041
(HLRZ 1 @ (SPECIAL EXPR))
(CAIE 1 'ENTRY)
(JRST 0 G0043)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(MOVEI 2 'ENTRY)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(MOVEM 7 0 FXP)
(CALL 2 'GET)
(MOVE 7 0 FXP)
(CAMN 7 0 1)
(JRST 0 G0045)
(MOVEI 2 '/|FL14)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0045
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 1 'COLLECTATOMS)
(HRRZ 1 @ (SPECIAL EXPR))
(HRRZ 1 0 1)
(JUMPE 1 G0053)
(HLRZ 1 0 1)
(JRST 0 G0052)
G0053
(HLRZ 1 @ -5 P)
(JSP T (CARCDR 2) 0 CADDR)
G0052
(HRRZ 2 @ (SPECIAL EXPR))
(HLRZ 2 0 2)
(CALL 2 'XCONS)
(PUSH P 1)
(MOVE 7 0 FXP)
(JSP T FXCONS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'CONS)
(MOVE 2 -2 P)
(CALL 2 'CONS)
(MOVEM 1 -2 P)
(SKIPN 2 (SPECIAL SYMBOLSP))
(JRST 0 G0063)
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
G0063
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL LASTENTRY))
(JRST 0 G0040)
G0043
(CAIE 1 'ARGS)
(JRST 0 G0067)
(HRRZ 2 @ (SPECIAL EXPR))
(HLRZ 2 0 2)
(CAME 2 (SPECIAL LASTENTRY))
(JRST 0 G0069)
(MOVEI 3 'ARGSINFO)
(HRRZ 2 @ (SPECIAL EXPR))
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(JRST 0 G0040)
G0069
(MOVEI 2 'ENTRY)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'GET)
(JUMPE 1 G0073)
(MOVEI 2 '/|FL15)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0040)
G0073
(MOVEI 2 '/|FL16)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0040)
G0067
(CAIE 1 'SYMBOLS)
(JRST 0 G0076)
(HRRZ 2 @ (SPECIAL EXPR))
(HLRZ 2 0 2)
(MOVEM 2 (SPECIAL SYMBOLSP))
(JRST 0 G0040)
G0076
(CAIE 1 'EVAL)
(JRST 0 G0079)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0007
(SKIPN 1 0 P)
(JRST 0 G0083)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0007)
G0083
(SUB P (% 0 0 1 1))
(JRST 0 G0040)
G0079
(CAIE 1 'DDTSYM)
(JRST 0 G0086)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0010
(SKIPN 1 0 P)
(JRST 0 G0090)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 2 (SPECIAL DDTSYMS))
(CALL 2 'MEMQ)
(JUMPN 1 G0092)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DDTSYMS))
G0092
(SUB P (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0010)
G0090
(SUB P (% 0 0 1 1))
(JRST 0 G0040)
G0086
(CAIN 1 'DEFSYM)
(JRST 0 G0040)
(CAIN 1 'COMMENT)
(JRST 0 G0040)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'MAKEWORD)
G0040
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0002)
G0036
(SUB P (% 0 0 1 1))
(PUSH P (% 0 0 'NIL))
(SKIPE 1 (SPECIAL LITERALS))
(JRST 0 G0021)
(MOVE 7 @ (SPECIAL LOC))
(CAME 7 @ (SPECIAL LITLOC))
(JRST 0 G0021)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL LITERALP))
(PUSH P -4 P)
G0013
(SKIPN 1 0 P)
(JRST 0 G0101)
(HLRZ 1 0 1)
(CALL 1 'MAKEWORD)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0013)
G0101
(SUB P (% 0 0 1 1))
(MOVE 7 @ (SPECIAL LITLOC))
(ADD 7 @ (SPECIAL LITCNT))
(CAME 7 @ (SPECIAL LOC))
(JRST 0 G0021)
(PUSH P -2 P)
G0016
(SKIPN 1 0 P)
(JRST 0 G0106)
(HLRZ 1 0 1)
(MOVEI 2 'ARGSINFO)
(PUSH P 1)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GET)
(MOVEM 1 -2 P)
(HLRZ 1 0 1)
(NCALL 1 'ARGSINFO)
(LSH 7 33)
(HRRZ 1 @ -2 P)
(PUSH FXP 7)
(NCALL 1 'ARGSINFO)
(LSH 7 22)
(IOR 7 0 FXP)
(HRRZ 10 @ 0 P)
(IOR 7 0 10)
(HLRZ 3 @ 0 P)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '13)
(CALL 3 'BUFFERBIN)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0016)
G0106
(SUB P (% 0 0 1 1))
(SKIPN 1 (SPECIAL DDTSYMS))
(JRST 0 G0121)
(SKIPE 2 (SPECIAL DDTSYMP))
(JRST 0 G0123)
(SKIPN 0 (SPECIAL TTYNOTES))
(TDZA 1 1)
(MOVEI 1 'T)
(MOVEI 2 '/|FL17)
(CALL 2 'FASLAPBARF)
(JRST 0 G0122)
G0123
(MOVEI 2 '/|FL20)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
G0122
G0121
(SKIPN 1 (SPECIAL UNDEFSYMS))
(JRST 0 G0126)
(MOVEI 2 '/|FL21)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
G0126
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
(MOVE 1 (SPECIAL SYMPDL))
(CALL 1 'MOBYSYMPOP)
(MOVE 1 -1 P)
(JRST 0 G0128)
G0021
(MOVEI 2 '/|FL22)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
G0128
(PUSHJ P UNBIND)
(SUB P (% 0 0 6 6))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP ARGSINFO SUBR)
(ARGS ARGSINFO (NIL . 1))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(JUMPN 1 G0002)
(MOVEI 7 0)
(JRST 0 G0001)
G0002
(MOVE 7 0 1)
(CAIE 7 777)
(JRST 0 G0003)
(MOVE 7 0 1)
(JRST 0 G0001)
G0003
(ADDI 7 1)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL23 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | LITERAL NOT IN ADDRESS FIELD IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP FASLEVAL SUBR)
(ARGS FASLEVAL (NIL . 1))
(PUSH P 1)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0004)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0003)
G0004
(MOVE 7 0 P)
(LSH 7 -11)
(SKIPGE 0 ST 7)
(JRST 0 G0006)
(MOVE 1 0 P)
(CAIE 1 '*)
(JRST 0 G0007)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0003)
G0007
(MOVEI 2 'SYM)
(CALL 2 'GET)
(JUMPN 1 G0003)
(SKIPN 2 0 P)
(JRST 0 G0014)
(MOVE 5 (SPECIAL UNDEFSYMS))
(JUMPE 5 G0013)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
G0014
(MOVEI 1 '0)
(JRST 0 G0003)
G0013
(EXCH 1 2)
(CALL 1 'GETMIDASOP)
(PUSH P 1)
(JUMPE 1 G0017)
(MOVEI 3 'SYM)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
G0017
(SUB P (% 0 0 1 1))
(JUMPN 1 G0003)
(SKIPE 2 (SPECIAL DDTSYMP))
(JRST 0 G0021)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(CALL 1 '*DDTSYM)
(JRST 0 G0003)
G0021
(MOVE 2 (SPECIAL UNDEFSYMS))
(MOVE 1 0 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL UNDEFSYMS))
(MOVEI 1 '0)
(JRST 0 G0003)
G0006
(HLRZ 1 @ 0 P)
(CAIE 1 'QUOTE)
(JRST 0 G0028)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0030)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0003)
G0030
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CAME 1 (SPECIAL SQUID))
(JRST 0 G0033)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(HRRZ 2 0 1)
(HLRZ 2 0 2)
(MOVEM 1 0 P)
(CAME 2 (SPECIAL MAKUNBOUND))
(JRST 0 G0035)
(MOVEI 1 '(0 (NIL 34)))
(JRST 0 G0003)
G0035
(JSP T PDLNMK)
(JRST 0 G0003)
G0033
(HRRZ 2 @ 0 P)
(HLRZ 2 0 2)
(HRRZ 2 0 2)
(CAME 2 (SPECIAL GOFOO))
(JRST 0 G0039)
(CALL 1 'NCONS)
(MOVEI 2 'EVAL)
(CALL 2 'XCONS)
(JRST 0 G0003)
G0039
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0003)
G0028
(CAIN 1 'SPECIAL)
(JRST 0 G0046)
(CAIN 1 'FUNCTION)
(JRST 0 G0046)
(CAIN 1 'ARRAY)
(JRST 0 G0046)
(CAME 1 (SPECIAL SQUID))
(JRST 0 G0045)
G0046
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0003)
G0045
(CAIE 1 'EVAL)
(JRST 0 G0052)
(HRRZ 2 @ 0 P)
(MOVE 1 (SPECIAL SQUID))
(CALL 2 'CONS)
(JRST 0 G0003)
G0052
(CAIE 1 '%)
(JRST 0 G0056)
(MOVE 7 @ (SPECIAL FSLFLD))
(SOJE 7 G0058)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL23)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 '0)
(JRST 0 G0003)
G0058
(HRRZ 1 @ 0 P)
(CALL 1 'LAPCONST)
(JUMPN 1 G0003)
(SKIPE 2 (SPECIAL LITERALP))
(JRST 0 G0062)
(HRRZ 3 @ (SPECIAL LITERALS))
(MOVEM 3 (SPECIAL LITERALS))
(PUSH FXP (% 0))
(PUSH P (SPECIAL LITCNT))
(PUSH P (SPECIAL LITCNT))
(HRRZ 4 @ -2 P)
(HLRZ 4 0 4)
(CAIN 4 'SIXBIT)
(JRST 0 G0066)
(CAIN 4 'ASCII)
(JRST 0 G0066)
(CAIE 4 'BLOCK)
(JRST 0 G0065)
G0066
(HRRZ 1 @ -2 P)
(NCALL 1 'BLOBLENGTH)
(JRST 0 G0064)
G0065
(MOVEI 2 'NIL)
(HRRZ 1 @ -2 P)
(NCALL 2 'RECLITCOUNT)
(JUMPN 7 G0072)
(MOVEI 7 1)
(JRST 0 G0064)
G0072
(MOVEI 2 'NIL)
(HRRZ 1 @ -2 P)
(NCALL 2 'RECLITCOUNT)
(ADD 7 @ -1 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVE 7 0 1)
(SUB 7 @ (SPECIAL LITCNT))
(ADDI 7 1)
(MOVEM 1 -1 P)
G0064
(ADD 7 @ 0 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LITCNT))
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LITLOC))
(ADD 7 @ -1 P)
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 1 1))
(JRST 0 G0003)
G0062
(MOVEI 1 '*)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(CALL 1 'MAKEWORD)
(POP P 1)
(JRST 0 G0003)
G0056
(CAIN 1 'ASCII)
(JRST 0 G0092)
(CAIE 1 'SIXBIT)
(JRST 0 G0091)
G0092
(CAIN 1 'ASCII)
(SKIPA 2 (% 0 0 '7))
(MOVEI 2 '6)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'PNGET)
(HLRZ 1 0 1)
(JRST 0 G0003)
G0091
(CAIE 1 'SQUOZE)
(JRST 0 G0101)
(HRRZ 1 @ 0 P)
(CALL 1 'SQOZ/|)
(JRST 0 G0003)
G0101
(CAIE 1 '-)
(JRST 0 G0105)
(HRRZ 2 @ 0 P)
(HRRZ 2 0 2)
(JUMPN 2 G0107)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(CALL 1 'FASLMINUS)
(JRST 0 G0003)
G0107
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLDIFF)
(JRST 0 G0003)
G0105
(CAIE 1 '+)
(JRST 0 G0117)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLPLUS)
(JRST 0 G0003)
G0117
(HRRZ 2 @ 0 P)
(JUMPE 2 G0124)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLPLUS)
(JRST 0 G0003)
G0124
(CALL 1 'FASLEVAL)
G0003
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP FASLPLUS SUBR)
(ARGS FASLPLUS (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0002)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0003)
(MOVE 7 @ -1 P)
(ADD 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0003
(HLRZ 1 @ 0 P)
(CAIE 1 'RELOC)
(JRST 0 G0006)
(MOVE 7 @ -1 P)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0006
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0014)
(MOVE 7 @ -1 P)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0014
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0002
(HLRZ 1 @ -1 P)
(CAIE 1 'RELOC)
(JRST 0 G0021)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0023)
(MOVE 7 @ 0 P)
(HRRZ 10 @ -1 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0023
(HLRZ 1 @ 0 P)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0030)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(HRRZ 10 @ -1 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0030
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0021
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0041)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0043)
(MOVE 7 @ 0 P)
(HLRZ 10 @ -1 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0043
(HLRZ 1 @ 0 P)
(CAIE 1 'RELOC)
(JRST 0 G0049)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 2 0 2)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0049
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0060)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0060
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0041
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FASLDIFF SUBR)
(ARGS FASLDIFF (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0002)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0003)
(MOVE 7 @ -1 P)
(SUB 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0003
(HLRZ 1 @ 0 P)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0006)
(MOVE 7 @ -1 P)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0006
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0002
(HLRZ 1 @ -1 P)
(CAIE 1 'RELOC)
(JRST 0 G0014)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0016)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(SUB 7 @ 0 P)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0016
(HLRZ 2 @ 0 P)
(CAIE 2 'RELOC)
(JRST 0 G0023)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0023
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0034)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0034
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0014
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0046)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0048)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(SUB 7 @ 0 P)
(HRRZ 2 @ -1 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0048
(HLRZ 1 @ 0 P)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0054)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0054
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0046
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FASLMINUS SUBR)
(ARGS FASLMINUS (NIL . 1))
(PUSH P 1)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0002)
(MOVN 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0002
(HLRZ 1 @ 0 P)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0005)
(HLRZ 7 @ 0 P)
(MOVN 7 0 7)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0005
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP FASLNEGLIS SUBR)
(ARGS FASLNEGLIS (NIL . 1))
(PUSH P (% 0 0 'NIL))
(MOVEI 5 0 P)
(JSP T PDLNMK)
(PUSH P 1)
(PUSH P 5)
G0005
(SKIPN 1 -1 P)
(JRST 0 G0008)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 2 0 1)
(HRRZ 2 0 2)
(JUMPE 2 G0013)
(TDZA 2 2)
G0013
(MOVEI 2 '-)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'CONS)
(HLRZ 2 @ 0 P)
(CALL 2 'XCONS)
(SUB P (% 0 0 1 1))
(CALL 1 'NCONS)
(HRRM 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0005)
G0008
(SUB P (% 0 0 2 2))
(POP P 1)
(POPJ P)
NIL
(LAP LAPCONST SUBR)
(ARGS LAPCONST (NIL . 1))
(PUSH P 1)
(HLRZ 1 0 1)
(CALL 1 'NUMBERP)
(SKIPE 0 1)
(JUMPE TT G0002)
(HRRZ 1 @ 0 P)
(JUMPN 1 G0004)
(HLRZ 1 @ 0 P)
(CALL 1 'LAPC1)
(JRST 0 G0001)
G0004
(MOVEI 1 'NIL)
(JRST 0 G0001)
G0002
(HRRZ 1 @ 0 P)
(JUMPN 1 G0008)
(MOVEI 1 '(0 (NIL -1)))
(JRST 0 G0001)
G0008
(HLRZ 1 0 1)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 121000)
(JRST 0 G0011)
(HRRZ 7 @ 0 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(JUMPN 7 G0011)
(HRRZ 1 @ 0 P)
(HRRZ 1 0 1)
(MOVEM 1 0 P)
(JUMPN 1 G0010)
G0011
(MOVEI 1 'NIL)
(JRST 0 G0001)
G0010
(HRRZ 2 0 1)
(JUMPN 2 G0016)
(HLRZ 1 0 1)
(CALL 1 'LAPC1)
(JRST 0 G0001)
G0016
(HLRZ 1 0 1)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 121000)
(JRST 0 G0020)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(CAIL 7 20)
(JRST 0 G0020)
(JUMPLE 7 G0020)
(HLRZ 1 0 2)
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 121000)
(JRST 0 G0020)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(HLRZ 10 0 2)
(MOVE 10 0 10)
(CAME 7 10)
(JRST 0 G0020)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY LCA))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY LCA))
(JRST 0 G0001)
G0020
(MOVEI 1 'NIL)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP LAPC1 SUBR)
(ARGS LAPC1 (NIL . 1))
(PUSH P 1)
(CAIE 1 'FIX1)
(JRST 0 G0002)
(MOVEI 1 '(-2 (NIL -1)))
(JRST 0 G0001)
G0002
(CAIE 1 'FLOAT1)
(JRST 0 G0003)
(MOVEI 1 '(-1 (NIL -1)))
(JRST 0 G0001)
G0003
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'LIST)
(JRST 0 G0006)
(HLRZ 2 @ 0 P)
(CAIE 2 'QUOTE)
(JRST 0 G0006)
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(JUMPE 3 G0005)
G0006
(TDZA 1 1)
G0005
(MOVEI 1 '(0 (NIL -1)))
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL24 SUBR)
(STRT 0 (% SIXBIT |ATOMINDEX SCREW ON !|))
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP ATOMINDEX SUBR)
(ARGS ATOMINDEX (NIL . 2))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 G0003)
(MOVEI 7 0)
(JRST 0 G0002)
G0003
(JUMPN 2 G0005)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 0 P)
G0005
(MOVE 1 0 P)
(CAIE 1 'SYMBOL)
(JRST 0 G0009)
(MOVEI 2 'ATOMINDEX)
(MOVE 1 -1 P)
(CALL 2 'GET)
(JRST 0 G0008)
G0009
(MOVEI 2 '(FIXNUM FLONUM BIGNUM))
(CALL 2 'MEMQ)
(JUMPE 1 G0008)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 'HASSOCN)
(HRRZ 1 0 1)
G0008
(MOVEM 1 0 P)
(JUMPN 1 G0015)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(JSP T SPECBIND)
(0 1 (SPECIAL DATA))
(MOVEI 2 '/|FL24)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(PUSHJ P UNBIND)
G0015
(MOVE 7 @ 0 P)
G0002
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP COLLECTATOMS SUBR)
(ARGS COLLECTATOMS (NIL . 1))
(PUSH P 1)
(JUMPE 1 G0003)
(PUSH P (% 0 0 'NIL))
G0001
(SKIPN 1 -1 P)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 0 P)
(CAIE 1 'LIST)
(JRST 0 G0005)
(HLRZ 1 @ -1 P)
(CALL 1 'COLLECTATOMS)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(JUMPN 1 G0001)
(JRST 0 G0004)
G0005
(CAIE 1 'SYMBOL)
(JRST 0 G0009)
(MOVEI 2 'ATOMINDEX)
(MOVE 1 -1 P)
(CALL 2 'GET)
(JUMPN 1 G0004)
(MOVE 2 (SPECIAL ALLATOMS))
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ALLATOMS))
(MOVE 7 @ (SPECIAL ATOMINDEX))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL ATOMINDEX))
(MOVEI 3 'ATOMINDEX)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
(MOVE 3 -1 P)
(MOVEI 2 '0)
(MOVEI 1 '12)
(CALL 3 'BUFFERBIN)
(JRST 0 G0004)
G0009
(CAIN 1 'FIXNUM)
(JRST 0 G0018)
(CAIN 1 'FLONUM)
(JRST 0 G0018)
(CAIE 1 'BIGNUM)
(JRST 0 G0004)
G0018
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(CALL 2 'HASSOCN)
(PUSH P 1)
(HRRZ 2 0 1)
(JUMPN 2 G0020)
(MOVE 7 @ (SPECIAL ATOMINDEX))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL ATOMINDEX))
(EXCH 2 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVE 2 -1 P)
(CALL 2 'XCONS)
(CALL 1 'NCONS)
(HRRM 1 @ 0 P)
(MOVE 3 -2 P)
(MOVEI 2 '0)
(MOVEI 1 '12)
(CALL 3 'BUFFERBIN)
G0020
(SUB P (% 0 0 1 1))
G0004
(MOVEI 1 'NIL)
(SUB P (% 0 0 1 1))
G0003
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP HASSOCN SUBR)
(ARGS HASSOCN (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 '(FIXNUM FLONUM))
(MOVE 1 0 P)
(CALL 2 'MEMQ)
(PUSH P 1)
(MOVE 1 -2 P)
(NCALL 1 'SXHASH)
(MOVMS 0 7)
(IDIVI 7 177)
(PUSH FXP 10)
(JUMPGE 10 G0006)
(SETZM 0 0 FXP)
G0006
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY NUMBERTABLE))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY NUMBERTABLE))
(PUSH P 1)
(PUSH P (% 0 0 'NIL))
G0001
(HRRZ 1 @ -1 P)
(MOVEM 1 0 P)
(JUMPN 1 G0010)
(MOVE 1 -1 P)
(JUMPN 1 G0012)
(CALL 1 'NCONS)
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY NUMBERTABLE))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY NUMBERTABLE))
G0012
(JRST 0 G0017)
G0010
(HLRZ 2 0 1)
(HLRZ 2 0 2)
(CAME 2 -3 P)
(JRST 0 G0009)
(SKIPE 3 -2 P)
(JRST 0 G0021)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(MOVE 1 -4 P)
(CALL 2 'EQUAL)
(JUMPE 1 G0009)
(JRST 0 G0020)
G0021
(HLRZ 7 0 1)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(CAME 7 @ -4 P)
(JRST 0 G0009)
G0020
(HLRZ 1 @ 0 P)
(HRRZ 1 0 1)
(JRST 0 G0017)
G0009
(MOVE 5 0 P)
(MOVEM 5 -1 P)
(JRST 0 G0001)
G0017
(SUB P (% 0 0 5 5))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP FASLDEFSYM SUBR)
(ARGS FASLDEFSYM (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 'SYM)
(CALL 2 'GET)
(PUSH P 1)
(JUMPE 1 G0003)
(MOVE 2 -1 P)
(CALL 2 'EQUAL)
(JUMPE 1 G0004)
(MOVE 1 0 P)
(JRST 0 G0006)
G0004
(MOVE 2 (SPECIAL AMBIGSYMS))
(MOVE 1 -2 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0002)
(MOVE 2 (SPECIAL AMBIGSYMS))
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL AMBIGSYMS))
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVE 1 -2 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0011)
(MOVE 2 0 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVE 2 (SPECIAL SYMPDL))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL SYMPDL))
(MOVEM 1 (SPECIAL MAINSYMPDL))
G0011
(JRST 0 G0002)
G0003
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL CURRENTFNSYMS))
G0002
(MOVEI 3 'SYM)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
G0006
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP /|FL25 SUBR)
(STRT 0 (% SIXBIT |ARG FOR BLOCK EXPRESSION !|))
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | NOT DEFINED!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP BLOBLENGTH SUBR)
(ARGS BLOBLENGTH (NIL . 1))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(HLRZ 2 0 1)
(CAIE 2 'SIXBIT)
(JRST 0 G0002)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(NCALL 1 'FLATC)
(ADDI 7 5)
(IDIVI 7 6)
(JRST 0 G0001)
G0002
(CAIE 2 'ASCII)
(JRST 0 G0008)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(NCALL 1 'FLATC)
(ADDI 7 4)
(IDIVI 7 5)
(JRST 0 G0001)
G0008
(HRRZ 3 0 1)
(HLRZ 3 0 3)
(MOVEM 3 (SPECIAL DATA))
(LSH 3 -11)
(MOVE 7 ST 3)
(TLNN 7 161400)
(JRST 0 G0014)
(MOVE 7 @ (SPECIAL DATA))
(JRST 0 G0001)
G0014
(SKIPN 1 (SPECIAL DATA))
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0016)
(MOVEI 2 'SYM)
(MOVE 1 (SPECIAL DATA))
(CALL 2 'GET)
(MOVEM 1 (SPECIAL DATA))
(LSH 1 -11)
(MOVE 7 ST 1)
(TLNN 7 161400)
(JRST 0 G0016)
(MOVE 7 @ (SPECIAL DATA))
(JRST 0 G0001)
G0016
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL25)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 7 0)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP SUBMATCH SUBR)
(ARGS SUBMATCH (NIL . 2))
(JSP T PDLNMK)
(PUSH P 1)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(PUSH P 1)
G0004
(SKIPE 1 0 P)
(JRST 0 G0007)
(MOVEI 1 'T)
(JRST 0 G0009)
G0007
(SKIPN 2 -1 P)
(JRST 0 G0010)
(HLRZ 3 0 1)
(HLRZ 4 0 2)
(CAIE 4 0 3)
(JRST 0 G0010)
(HRRZ 5 0 1)
(HRRZ 3 0 2)
(MOVEM 3 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0004)
G0010
(MOVEI 1 'NIL)
G0009
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP MUNGEABLE SUBR)
(ARGS MUNGEABLE (NIL . 1))
(PUSH P 1)
(HLRZ 2 0 1)
(CAIN 2 'QUOTE)
(JRST 0 G0003)
(CAIN 2 'COMMENT)
(JRST 0 G0003)
(CAIN 2 'DECLARE)
(JRST 0 G0003)
(CAIE 2 'EVAL)
(JRST 0 G0002)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'LIST)
(JRST 0 G0002)
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(HLRZ 3 0 3)
(CAIE 3 'QUOTE)
(JRST 0 G0002)
G0003
(TDZA 1 1)
G0002
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP MOBYSYMPOP SUBR)
(ARGS MOBYSYMPOP (NIL . 1))
(JSP T PDLNMK)
(PUSH P 1)
G0002
(SKIPN 1 0 P)
(JRST 0 G0005)
(MOVEI 3 'SYM)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0002)
G0005
(MOVEI 1 'NIL)
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL26 SUBR)
(STRT 0 (% SIXBIT |QUOTE RANDOMNESS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | AT RELATIVE LOCATION !|))
(MOVE 1 (SPECIAL LOC))
(JCALL 1 'PRIN1)
NIL
(LAP LISTOUT SUBR)
(ARGS LISTOUT (NIL . 1))
(PUSH P 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(PUSH P 1)
(CAIE 1 'RANDOM)
(JRST 0 G0006)
(MOVEI 2 '/|FL26)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0005)
G0006
(CAIN 1 'LIST)
(JRST 0 G0008)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0005)
G0008
(HLRZ 2 @ -1 P)
(CAME 2 (SPECIAL SQUID))
(JRST 0 G0011)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL SQUIDP))
(HRRZ 1 @ -1 P)
(HLRZ 1 0 1)
(CALL 1 'LISTOUT)
(MOVEI 1 '3←41)
(CALL 1 'FASLOUT)
(JRST 0 G0005)
G0011
(MOVE 1 -1 P)
(JSP T PDLNMK)
(PUSH FXP (% 0))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P (% 0 0 'NIL))
G0003
(SKIPN 1 -1 P)
(JRST 0 G0018)
(LSH 1 -11)
(SKIPGE 0 ST 1)
(TDZA 1 1)
(MOVEI 1 'T)
(MOVEM 1 0 P)
(JUMPE 1 G0016)
G0018
(SKIPN 1 0 P)
(JRST 0 G0021)
(MOVE 1 -1 P)
(CALL 1 'LISTOUT)
(SKIPA 7 (% 2←41))
G0021
(MOVE 7 (% 1←41))
(MOVEM 7 0 FXP)
(IOR 7 -1 FXP)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(CALL 1 'FASLOUT)
(JRST 0 G0025)
G0016
(HLRZ 1 @ -1 P)
(CALL 1 'LISTOUT)
(MOVE 7 -1 FXP)
(ADDI 7 1)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0003)
G0025
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 2 2))
G0005
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP BUFFERBIN SUBR)
(ARGS BUFFERBIN (NIL . 3))
(MOVE 7 @ (SPECIAL BINCT))
(MOVE 10 0 1)
(MOVEM 10 @ (ARRAY BTAR))
(MOVE 7 @ (SPECIAL BINCT))
(MOVE 10 0 2)
(MOVEM 10 @ (ARRAY BXAR))
(PUSH FXP 0 1)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(MOVE 7 @ (SPECIAL BINCT))
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY BSAR))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY BSAR))
(PUSH FXP 0 2)
(PUSH P 3)
(MOVE 7 -1 FXP)
(CAIN 7 17)
(JRST 0 G0019)
(MOVE 7 @ (SPECIAL BINCT))
(CAIL 7 10)
(JRST 0 G0019)
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL BINCT))
(JRST 0 G0018)
G0019
(PUSH FXP (% 0))
(PUSH FXP (% 0))
G0003
(MOVE 7 -1 FXP)
(CAMG 7 @ (SPECIAL BINCT))
(JRST 0 G0023)
(MOVEI 7 10)
(SUB 7 @ (SPECIAL BINCT))
(ASH 7 2)
(MOVE 10 0 FXP)
(LSH 10 0 7)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0029)
G0023
(MOVE 7 0 FXP)
(LSH 7 4)
(PUSH FXP 7)
(MOVE 7 -2 FXP)
(MOVE 7 @ (ARRAY BTAR))
(IOR 7 0 FXP)
(AOS 0 -2 FXP)
(MOVEM 7 -1 FXP)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0003)
G0029
(SUB FXP (% 0 0 2 2))
(PUSH FXP (% 0))
(PUSH FXP (% 0))
G0006
(MOVE 7 0 FXP)
(CAMLE 7 @ (SPECIAL BINCT))
(JRST 0 G0035)
(MOVE 7 @ (ARRAY BTAR))
(MOVEM 7 -3 FXP)
(MOVE 7 0 FXP)
(MOVE 10 @ (ARRAY BXAR))
(MOVEM 10 -2 FXP)
(MOVE 7 -3 FXP)
(CAIGE 7 5)
(JRST 0 G0042)
(CAIN 7 6)
(JRST 0 G0042)
(CAIE 7 10)
(JRST 0 G0041)
G0042
(MOVEI 1 -2 FXP)
(NCALL 1 'FASLOUT)
(JRST 0 G0040)
G0041
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY BSAR))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY BSAR))
(MOVEM 1 0 P)
(MOVE 7 -3 FXP)
(CAIE 7 5)
(JRST 0 G0046)
(SETZM 0 (SPECIAL SQUIDP))
(CALL 1 'LISTOUT)
(MOVE 7 -2 FXP)
(LSH 7 -22)
(IOR 7 (% -1←22))
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(SKIPN 1 (SPECIAL SQUIDP))
(JRST 0 G0050)
(MOVEI 7 0)
(JRST 0 G0049)
G0050
(MOVE 1 0 P)
(NCALL 1 'SXHASH)
(MOVEM 7 -2 FXP)
G0049
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(SUB FXP (% 0 0 2 2))
(JRST 0 G0040)
G0046
(CAIE 7 12)
(JRST 0 G0053)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(PUSH P 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0056)
(MOVEI 2 '7)
(MOVE 1 -1 P)
(CALL 2 'PNGET)
(MOVEM 1 -1 P)
(NCALL 1 'LENGTH)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(PUSH P 1)
G0010
(SKIPN 1 0 P)
(JRST 0 G0061)
(HLRZ 1 0 1)
(NCALL 1 'FASLOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0010)
G0061
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(JRST 0 G0055)
G0056
(CAIE 1 'BIGNUM)
(JRST 0 G0064)
(SKIPGE 0 @ -1 P)
(SKIPA 7 (% 7←22))
(MOVEI 7 0)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(NCALL 1 'LENGTH)
(MOVE 10 (% 3←41))
(IOR 10 0 FXP)
(IOR 10 7)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(HRRZ 1 @ -1 P)
(CALL 1 'REVERSE)
(PUSH P 1)
G0013
(SKIPN 1 0 P)
(JRST 0 G0074)
(HLRZ 1 0 1)
(NCALL 1 'FASLOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0013)
G0074
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(JRST 0 G0055)
G0064
(CAIN 1 'FIXNUM)
(JRST 0 G0078)
(CAIE 1 'FLONUM)
(JRST 0 G0077)
G0078
(CAIN 1 'FIXNUM)
(SKIPA 7 (% 1←41))
(MOVE 7 (% 2←41))
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(MOVE 7 @ -1 P)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(SUB FXP (% 0 0 2 2))
(JRST 0 G0055)
G0077
(MOVEI 3 -3 FXP)
(MOVEI 2 -2 FXP)
(MOVE 1 -1 P)
(CALL 3 'BBS)
G0055
(SUB P (% 0 0 1 1))
(JRST 0 G0040)
G0053
(CAIE 7 13)
(JRST 0 G0083)
(MOVEI 2 'SYMBOL)
(HLRZ 1 0 1)
(NCALL 2 'ATOMINDEX)
(LSH 7 22)
(MOVEI 2 'SYMBOL)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(NCALL 2 'ATOMINDEX)
(IOR 7 0 FXP)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 1 'FASLOUT)
(MOVEI 1 -4 FXP)
(NCALL 1 'FASLOUT)
(SUB FXP (% 0 0 2 2))
(JRST 0 G0040)
G0083
(CAIE 7 16)
(JRST 0 G0090)
(CALL 1 'LISTOUT)
(MOVEI 1 -2 FXP)
(NCALL 1 'FASLOUT)
(JRST 0 G0040)
G0090
(CAIE 7 17)
(JRST 0 G0091)
(MOVEI 1 '124641635413)
(NCALL 1 'FASLOUT)
(JRST 0 G0040)
G0091
(CAIE 7 7)
(JRST 0 G0092)
(MOVEI 1 -2 FXP)
(NCALL 1 'FASLOUT)
(SKIPN 1 0 P)
(JRST 0 G0093)
(NCALL 1 'FASLOUT)
G0093
(JRST 0 G0040)
G0092
(CAIE 7 15)
(JRST 0 G0094)
(JSP T PDLNMK)
(CALL 1 'NCONS)
(CALL 1 'SQOZ/|)
(NCALL 1 'FASLOUT)
(JRST 0 G0040)
G0094
(MOVEI 3 -3 FXP)
(MOVEI 2 -2 FXP)
(CALL 3 'BBS)
G0040
(AOS 0 0 FXP)
(JRST 0 G0006)
G0035
(SUB FXP (% 0 0 2 2))
(MOVEI 1 '0)
(MOVEM 1 (SPECIAL BINCT))
G0018
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(POPJ P)
NIL
(LAP /|FL27 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - BUFFERBIN SCREW IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP BBS SUBR)
(ARGS BBS (NIL . 3))
(JSP T PDLNMK)
(PUSH FXP 0 2)
(CALL 1 'NCONS)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(EXCH 1 3)
(JSP T PDLNMK)
(MOVEI 2 0 1)
(EXCH 1 3)
(CALL 2 'XCONS)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL27)
(MOVEI 1 'BARF)
(JCALL 2 'FASLAPBARF)
NIL
(LAP /|FL30 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - ILL-FORMED EXPRESSION IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP MAKEWORD SUBR)
(ARGS MAKEWORD (NIL . 1))
(PUSH P 1)
(PUSH P (% 0 0 'T))
(PUSH FXP (% 0))
(PUSH FXP (% 0))
(JSP T PDLNMK)
(JSP T (NPUSH -7))
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 2 @ -11 P)
(CAIE 2 'SQUOZE)
(JRST 0 G0015)
(HRRZ 1 @ -11 P)
(CALL 1 'SQOZ/|)
(CALL 1 'BINOUT)
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0015
(CAIE 2 'BLOCK)
(JRST 0 G0022)
(HRRZ 1 @ -11 P)
(HLRZ 1 0 1)
(MOVEM 1 -7 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIE 1 'SYMBOL)
(JRST 0 G0026)
(MOVEI 2 'SYM)
(MOVE 1 -7 P)
(CALL 2 'GET)
(MOVEM 1 -7 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
G0026
(MOVE 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0011)
(PUSH FXP @ -7 P)
G0002
(MOVE 7 0 FXP)
(JUMPE 7 G0032)
(MOVEI 1 '0)
(CALL 1 'BINOUT)
(SOS 0 0 FXP)
(JRST 0 G0002)
G0032
(SUB FXP (% 0 0 1 1))
(MOVE 7 @ (SPECIAL LOC))
(ADD 7 @ -7 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0022
(CAIE 2 'ASCII)
(JRST 0 G0037)
(MOVEI 7 7)
(MOVEM 7 0 FXP)
(JRST 0 G0036)
G0037
(CAIE 2 'SIXBIT)
(JRST 0 G0014)
(MOVEI 7 6)
(MOVEM 7 0 FXP)
G0036
(MOVEI 2 0 FXP)
(HRRZ 1 @ -11 P)
(HLRZ 1 0 1)
(CALL 2 'PNGET)
(PUSH P 1)
(MOVEM 1 -10 P)
(PUSH P 0 P)
G0006
(SKIPN 1 0 P)
(JRST 0 G0044)
(HLRZ 1 0 1)
(CALL 1 'BINOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0006)
G0044
(SUB P (% 0 0 2 2))
(MOVE 1 -7 P)
(NCALL 1 'LENGTH)
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0014
(MOVEI 5 '3)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIN 1 'FIXNUM)
(JRST 0 G0055)
(CAIE 1 'FLONUM)
(JRST 0 G0054)
G0055
(MOVE 7 @ -7 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0053)
G0054
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 2 @ -7 P)
(CAIE 2 'RELOC)
(JRST 0 G0056)
(MOVEI 7 1)
(HRRZ 3 @ -7 P)
(HLRZ 3 0 3)
(MOVE 10 0 3)
(MOVEM 7 -2 FXP)
(MOVEM 10 -1 FXP)
(HRRZ 1 @ -7 P)
(HRRZ 1 0 1)
(MOVEM 1 -5 P)
(JUMPE 1 G0059)
(SETZM 0 -10 P)
G0059
(JRST 0 G0053)
G0056
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0061)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 3 @ -7 P)
(MOVE 7 0 3)
(MOVEM 2 -5 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0053)
G0061
(JRST 0 G0011)
G0053
G0007
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0065)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(MOVEM 7 -1 FXP)
(JRST 0 G0007)
G0065
(MOVEI 5 '2)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0074)
(MOVE 7 @ -7 P)
(ANDI 7 17)
(ROT 7 -15)
(ADDB 7 -1 FXP)
(JRST 0 G0073)
G0074
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 2 @ -7 P)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0078)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 7 @ -7 P)
(MOVE 7 0 7)
(ANDI 7 17)
(ROT 7 -15)
(IOR 7 -1 FXP)
(MOVEM 2 -4 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0073)
G0078
(JRST 0 G0011)
G0073
G0008
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0085)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(MOVEM 7 -1 FXP)
(JRST 0 G0008)
G0085
(MOVEI 5 '1)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0094)
(MOVE 7 @ -7 P)
(MOVEM 7 0 FXP)
(JRST 0 G0093)
G0094
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 2 @ -7 P)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0095)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 3 @ -7 P)
(MOVE 7 0 3)
(MOVEM 2 -3 P)
(MOVEM 7 0 FXP)
(JRST 0 G0093)
G0095
(HRRZ 2 @ -7 P)
(HLRZ 2 0 2)
(HLRZ 3 @ -7 P)
(MOVEM 2 -1 P)
(CAIN 3 'QUOTE)
(JRST 0 G0101)
(CAIE 3 'FUNCTION)
(JRST 0 G0099)
G0101
(EXCH 1 2)
(CALL 1 'COLLECTATOMS)
(SKIPN 1 -1 P)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIN 1 'LIST)
(JRST 0 G0105)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(MOVEM 7 0 FXP)
(MOVEI 7 4)
(JRST 0 G0104)
G0105
(MOVE 5 -1 P)
(SETZM 0 0 FXP)
(MOVEI 7 5)
(MOVEM 5 -3 P)
G0104
(MOVEM 7 -2 FXP)
(JRST 0 G0093)
G0099
(CAIE 3 'SPECIAL)
(JRST 0 G0112)
(MOVEI 7 2)
(MOVEM 7 -2 FXP)
(JRST 0 G0111)
G0112
(CAIE 3 'ARRAY)
(JRST 0 G0110)
(MOVEI 7 10)
(MOVEM 7 -2 FXP)
G0111
(EXCH 1 2)
(CALL 1 'COLLECTATOMS)
(SKIPN 1 -1 P)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0011)
(MOVEI 2 'SYMBOL)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(MOVEM 7 0 FXP)
(JRST 0 G0093)
G0110
(CAIE 3 'RELOC)
(JRST 0 G0119)
(MOVEI 7 1)
(HRRZ 4 @ -7 P)
(HLRZ 4 0 4)
(MOVE 10 0 4)
(MOVEM 7 -2 FXP)
(MOVEM 10 0 FXP)
(HRRZ 1 @ -7 P)
(HRRZ 1 0 1)
(MOVEM 1 -3 P)
(JUMPE 1 G0122)
(SETZM 0 -10 P)
G0122
(JRST 0 G0093)
G0119
(CAIE 3 'EVAL)
(JRST 0 G0126)
(HRRZ 2 @ -7 P)
(MOVE 1 (SPECIAL SQUID))
(CALL 2 'CONS)
(MOVEM 1 -3 P)
(JRST 0 G0125)
G0126
(CAME 3 (SPECIAL SQUID))
(JRST 0 G0124)
(MOVE 5 -7 P)
(MOVEM 5 -3 P)
G0125
(MOVE 1 -1 P)
(CALL 1 'COLLECTATOMS)
(MOVEI 7 5)
(MOVEM 7 -2 FXP)
(JRST 0 G0093)
G0124
(JRST 0 G0011)
G0093
(MOVE 7 -1 FXP)
(AND 7 (% -1←22))
(MOVE 10 -1 FXP)
(ADD 10 0 FXP)
(ANDI 10 777777)
(IOR 7 10)
(MOVEM 7 -1 FXP)
G0009
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0136)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(JRST 0 (G0009 -1))
G0136
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(MOVEM 1 -6 P)
(CAIN 1 'FIXNUM)
(JRST 0 G0146)
(CAIE 1 'FLONUM)
(JRST 0 G0145)
G0146
(MOVE 7 @ -7 P)
(ROT 7 22)
(ADDB 7 -1 FXP)
(JRST 0 G0144)
G0145
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 2 @ -7 P)
(LSH 2 -11)
(MOVE 7 ST 2)
(TLNN 7 161400)
(JRST 0 G0149)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 7 @ -7 P)
(MOVE 7 0 7)
(ROT 7 22)
(ADDB 7 -1 FXP)
(MOVEM 2 -2 P)
(JRST 0 G0144)
G0149
(JRST 0 G0011)
G0144
G0010
(MOVE 7 -2 FXP)
(CAIE 7 4)
(JRST 0 G0155)
(HLRZ 1 @ 0 P)
(CAIN 1 'CALL)
(JRST 0 G0156)
(CAIN 1 'JCALL)
(JRST 0 G0156)
(CAIN 1 'NCALL)
(JRST 0 G0156)
(CAIE 1 'NJCALL)
(JRST 0 G0155)
G0156
(MOVEI 7 3)
(MOVEM 7 -2 FXP)
G0155
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(MOVE 7 -2 FXP)
(CAIE 7 5)
(JRST 0 G0164)
(PUSH P -3 P)
(SETZM 0 -4 P)
(POP P 3)
(JRST 0 G0163)
G0164
(MOVEI 3 'NIL)
G0163
(MOVEI 2 -1 FXP)
(MOVEI 1 -2 FXP)
(CALL 3 'BUFFERBIN)
(SKIPE 1 -10 P)
(JRST 0 G0166)
(SKIPN 2 -5 P)
(JRST 0 G0168)
(MOVEI 2 '3)
(MOVE 1 -5 P)
(CALL 2 'GLHAK)
G0168
(SKIPN 1 -4 P)
(JRST 0 G0170)
(MOVEI 2 '2)
(CALL 2 'GLHAK)
G0170
(SKIPN 1 -3 P)
(JRST 0 G0173)
(MOVEI 2 '1)
(CALL 2 'GLHAK)
(JUMPN 1 G0011)
G0173
(SKIPN 1 -2 P)
(JRST 0 G0175)
(MOVEI 2 '0)
(CALL 2 'GLHAK)
G0175
G0166
(JRST 0 G0021)
G0011
(JSP T SPECBIND)
(-1←41 0 (SPECIAL DATA))
(MOVEI 2 '/|FL30)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(PUSHJ P UNBIND)
G0021
(MOVEI 1 'NIL)
(SUB P (% 0 0 12 12))
(SUB FXP (% 0 0 3 3))
(POPJ P)
NIL
(LAP GLHAK SUBR)
(ARGS GLHAK (NIL . 2))
(PUSH P 1)
(PUSH FXP 0 2)
(HLRZ 3 0 1)
(HLRZ 3 0 3)
(JUMPN 3 G0002)
(MOVE 7 0 FXP)
(SOJE 7 G0004)
(MOVEI 1 'T)
(JRST 0 G0001)
G0004
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HRRZ 4 0 4)
(JUMPE 4 G0007)
(SKIPA 7 (% -4←41))
G0007
(MOVEI 7 0)
(HLRZ 10 0 1)
(HRRZ 10 0 10)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ANDI 10 777777)
(IOR 7 10)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '6)
(CALL 3 'BUFFERBIN)
(SUB FXP (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(JUMPE 1 G0013)
(MOVEI 2 0 FXP)
(CALL 2 'GLHAK)
G0013
(JRST 0 G0001)
G0002
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HRRZ 4 0 4)
(JUMPE 4 G0019)
(SKIPA 7 (% -4←41))
G0019
(MOVEI 7 0)
(PUSH FXP 7)
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HLRZ 4 0 4)
(JUMPE 4 G0023)
(SKIPA 7 (% 2←41))
G0023
(MOVEI 7 0)
(MOVE 10 -1 FXP)
(ROT 10 -4)
(IOR 7 0 FXP)
(IOR 7 10)
(IOR 7 0 3)
(HLRZ 3 0 1)
(HRRZ 3 0 3)
(HLRZ 3 0 3)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '7)
(CALL 3 'BUFFERBIN)
(SUB FXP (% 0 0 2 2))
(HRRZ 1 @ 0 P)
(JUMPE 1 G0032)
(MOVEI 2 0 FXP)
(CALL 2 'GLHAK)
G0032
G0001
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP BINOUT SUBR)
(ARGS BINOUT (NIL . 1))
(MOVEI 3 'NIL)
(MOVEI 2 0 1)
(MOVEI 1 '0)
(JCALL 3 'BUFFERBIN)
NIL
(LAP *DDTSYM SUBR)
(ARGS *DDTSYM (NIL . 1))
(PUSH P 1)
(JSP T PDLNMK)
(CALL 1 'NCONS)
(CALL 1 'SQOZ/|)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 'GETDDTSYM)
(CALL 1 'NCONS)
(POP P 2)
(CALL 2 'XCONS)
(CALL 1 'NCONS)
(MOVEI 2 '0)
(CALL 2 'XCONS)
(MOVEI 2 0 1)
(POP P 1)
(JCALL 2 'FASLDEFSYM)
NIL
(LAP FASLOUT SUBR)
(ARGS FASLOUT (NIL . 1))
(PUSH P (% 0 0 FIX1))
(PUSH FXP 0 1)
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0002)
(EXCH 2 1)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 2 'OUT)
(MOVE 7 0 1)
(JRST 0 G0001)
G0002
(CALL 1 'IMAGEOUT)
(MOVE 7 0 1)
G0001
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(AND (STATUS FEATURE NEWIO) (DEFPROP UTIN 0 SYM) (DEFPROP UINITA 0 SYM))
(LAP OPENIMAGEOUT SUBR)
(ARGS OPENIMAGEOUT (NIL . 2))
[IFE DEC10, (DEFSYM FSLC 14)] ;FASLAP CAN USE BVDC TEMPROARILY
;BUT DEC10 VERSION USES DSIC
[IFN SAIL, (DEFSYM DSIC 17)] ;CHANNEL FOR SAIL FAS OUTPUT
(DEFSYM TTSAR 1) ;OFFSET OF TT SAR FROM SAR
(JUMPE B CLIMO)
(MOVEI B 'OUTPUT)
(CALL 2 (FUNCTION XCONS))
(MOVEI B '/.FASL/.)
(CALL 2 (FUNCTION XCONS))
(MOVEI T 7) ;BLOCK IMAGE OUTPUT MODE
(PUSHJ P,UINITA)
[IFE DEC10,
(*OPEN FSLC UTIN) ;OPEN FILE NAMED ".FASL. OUTPUT"
(LERR 0 (% SIXBIT |FILE OPEN FAILED - FASLAP!|))
] ;END OF IFE DEC10
[IFN DEC10,
(MOVE T D10NAM)
(HRRI T (SIXBIT / / / FAS))
(MOVEM T UFN1)
(HRLZM T UFN2)
(MOVE B (SPECIAL IMOSAR))
[IFE SAIL,
(PUSHJ P (IOO 2))] ;CROCK PATCH TO NOT MAKE ARRAY AGIN
;;; THIS CRAP IS SO THAT AUTOLOADS CAN WORK IN THE COMPILER.
;;; ALL IT DOES IS DO THE IMAGEOUT ON CHANNEL 7, NOT 6.
[IFN SAIL,
(HRRZM B (- USN 7)) ;HRRZM B,LDBSAR
(MOVE T 0 B)
(MOVE T -1 T)
(SUBI T 1)
(MOVEM T (- D10NAM 2)) ;MOVEM T,D10ARD
(MOVEM T (- D10NAM 3)) ;MOVEM T,D10PTR
(SETZ D)
(MOVEI T 16)
(MOVE TT (- D10NAM 12)) ;MOVE TT,UTIN
(OPEN DSIC T)]
(LERR 0 (% SIXBIT |DEVICE NOT AVAILABLE!|))
[IFN SAIL,
(MOVE T UFN1)
(HLLZ TT UFN2)
(SETZ D)
(MOVE R USN)]
(ENTER DSIC T)
(LERR 0 (% SIXBIT |CANNOT ENTER FILE!|))
] ;END OF IFN DEC10
(MOVE A (SPECIAL IMOSAR))
(MOVEI B '(0))
(CALL 2 'FILLARRAY)
(MOVE TT UTIN)
(JSP T FXCONS)
(MOVEM A (SPECIAL OPENIMAGEOUT))
(MOVE AR2A (SPECIAL IMOSAR))
IMOINI (MOVEI TT IMOBFL)
(MOVNM TT @ TTSAR AR2A)
(MOVEI A 'T)
(JRST 0 INTREL) ;UNLKPOPJ
CLIMO (PUSH FXP INHIBIT) ;LOCKI
(SETOM 0 INHIBIT)
(PUSH P A)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
(PUSH FXP TT)
[IFE SAIL, (POP P A) ] ;END OF IFE SAIL
[IFN SAIL, (MOVE A 0 P)] ;END OF IFN SAIL
(HRRZ A 0 A)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
[IFN DEC10, (PUSH FXP TT) ] ;END OF IFN DEC10
[IFN SAIL,
(MOVE A 0 P)
(HRRZ A 0 A)
(HRRZ A 0 A)
(HRRZ A 0 A)
(HLRZ A 0 A)
(MOVEM A 0 P)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
(PUSH FXP TT)
(POP P A)
(HRRZ A 0 A)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
(PUSHJ P JUST)
(EXCH TT 0 FXP)
(PUSHJ P JUST)
(HLR TT 0 FXP)
(JSP T FIX1A)
(MOVEM A (SPECIAL IMOUSR))
(SUB FXP (% 0 0 1 1))
] ;END OF IFN SAIL
[IFN DEC10,
(HRRZ AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(MOVN TT @ TTSAR AR2A)
(SUBI TT IMOBFL)
(JUMPE TT GREG2)
(HRLZS 0 TT)
(HRR TT TTSAR AR2A)
(SUBI TT 1) ;DEC-10 WANTS IOWD, NOT AOBJN PTR
(SETZ D)
(OUTPUT DSIC TT)
(STATZ DSIC 740000)
(JRST 0 OFAIL)
GREG2 (MOVE T @ (SPECIAL OPENIMAGEOUT))
(MOVEM T UTIN)
(CLOSE DSIC)
(MOVE T -1 FXP)
(HLLZ TT 0 FXP)
(MOVE R @ (SPECIAL IMOUSR)) ;PICK UP PPN
(LOOKUP DSIC T)
(JRST 0 GREG1)
(MOVE R @ (SPECIAL IMOUSR)) ;PICK UP PPN
(SETZB T TT)
(RENAME DSIC T)
(LERR 0 (% SIXBIT CANNOT/ DELETE/ EXISTING/ FILE/ -/ FASLAP/#/!/!))
GREG1 (MOVE R @ (SPECIAL IMOUSR)) ;PICK UP PPN
(MOVE T D10NAM)
(HRRI T (SIXBIT / / / FAS))
(HRLZM T TT)
(LOOKUP DSIC T)
(JFCL 0)
(POP FXP TT)
(POP FXP T)
(HLLZS 0 TT)
(MOVE R @ (SPECIAL IMOUSR)) ;PICK UP PPN
(SETZ D)
(RENAME DSIC T)
(LERR 0 (% SIXBIT FILE/ RENAME/ LOST/ /-/ FASLAP/!))
] ;END OF IFN DEC10
[IFE DEC10,
(POP FXP (UTIN 3))
(MOVEM TT (UTIN 4))
(MOVE T @ (SPECIAL OPENIMAGEOUT))
(MOVEM T UTIN)
(SETZM 0 (UTIN 1))
(MOVEI T FSLC)
(MOVEM T (UTIN 2))
(*FDELE 0 UTIN)
FFRL (LERR 0 (% SIXBIT FASLAP/ FILE/ RENAME/ LOST/!))
(HRRZ AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(MOVN TT @ TTSAR AR2A) ;CHECK FOR ANY DATA LEFT IN BUFFER
(SUBI TT IMOBFL)
(JUMPE TT IMOB)
(HRLZS 0 TT) ;OUTPUT LAST BLOCK OF DATA
(HRR TT TTSAR AR2A)
(*IOT FSLC TT)
IMOB (*CLOSE FSLC) ;CLOSE OUTPUT FILE
] ;END OF IFE DEC10
[IFN SAIL,
(RELEASE DSIC 0)
] ;END OF IFN SAIL
(MOVEI A 0)
(JRST 0 INTREL) ;UNLKPOPJ
SIXMAK (MOVEI B '6)
(CALL 2 'PNGET)
(HLRZ A 0 A)
(MOVE TT 0 A)
(POPJ P)
(ENTRY IMAGEOUT SUBR)
(MOVE TT 0 1) ;GET OUTPUT VALUE
IMOTT (PUSH FXP INHIBIT)
(SETOM 0 INHIBIT)
(MOVE F TT)
(MOVE AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(AOS D @ TTSAR AR2A) ;GET AND INCREMENT COUNT
(MOVEI TT (- IMOBFL 1) D)
(MOVEM F @ TTSAR AR2A) ;PUT WORD IN BUFFER
(JUMPN D INTREL) ;UNLKPOPJ
(HRLI TT (- IMOBFL))
(HRR TT TTSAR AR2A)
[IFN DEC10,
(SUBI TT 1)
(MOVEI D 0)
(OUT DSIC TT)
(JRST 0 IMOINI) ;NOW GO REINITIALIZE COUNTER
OFAIL (LERR 0 (% SIXBIT OUTPUT/ FAILURE/ /-/ FASLAP/!))
] ;END OF IFN DEC10
[IFE DEC10,
(*IOT FSLC TT)
(JRST 0 IMOINI) ;NOW GO REINITIALIZE COUNTER
] ;END OF IFE DEC10
[IFN SAIL,
JUST (TLNE TT 77)
(POPJ P)
(LSH TT -6)
(JRST 0 JUST)
] ;END OF IFN SAIL
NIL
(DECLARE (EVAL (READ)))(PROGN (SETSYNTAX '/# 'MACRO NIL) (SETSYNTAX '/[ 'SPLICING NIL) (SETSYNTAX '/] 'SPLICING NIL))(AND (STATUS FEATURE NEWIO) (REMPROP 'UTIN 'SYM) (REMPROP 'UINITA 'SYM))
(SSTATUS FEATURE FASLAP)
(GCTWA)